      SUBROUTINE READZ
C
        IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 J2,J3,J4,J22
      INTEGER*4 DDPLY
C
      COMMON/CCMBNZ/ CMRK(10),Z01(4),Z02(4),Z03(4),Z04(4),Z11(12),
     .               Z12(12),Z13(12),Z14(12),Z15(12),Z16(12),Z21(36),
     .               Z22(36),Z23(36),Z24(36),Z25(36),Z26(36),Z27(36),
     .               Z28(36),Z31(108),Z32(108),Z33(108),Z34(108),
     .               Z35(108),Z41(324),Z42(324),Z43(324),ZK21(18),
     .               ZK22(18),ZK23(18),ZK31(54),ZK32(54),ZK33(54),
     .               ZK34(54),ZK35(54),ZK36(54),ZK41(162),ZK42(162),
     .               ZK43(162),ZK44(162),ZK45(162),ZK46(162),ZK47(162),
     .               ZK48(162),ZS01(2),ZS02(2),ZS11(6),ZS12(6),ZS13(6),
     .               ZS21(18),ZS22(18),ZS23(18),ZS24(18),ZS31(54),
     .               ZS32(54),ZS41(162),ZT21(108),ZT22(108),STAO(18),
     .               STA1(18),STA2(18),STBO(18),STB1(18),STB2(18),
     .               Z2S01(2),Z2S12(6),Z2S23(18)
C
      COMMON/CNBODY/ J2,J3,J4,J22,ZJ20,ZMU,WWO,FLAT,AEARTH
C
      COMMON/CFINDX/ AX2CHK,TCHECK,LCHECK
C
      COMMON/CODPLY/ STANG,ANGTOL
C
      COMMON/DATOUT/ IDATA,MLAST
C
      COMMON/DEBUG1/ IAFM(5)
C
      COMMON/DEBUG2/ IOUT,JOUT,KLUGE
C
      COMMON/DEBUG3/ ISWTCH
C
      COMMON/DEPLOY/ DDPLY,MDPLY
C
      COMMON/HAMOUT/ HAMILT,IHAMLT
C
      COMMON/IMAIN1/ IDATE,LSAVE,INOPT,IPLOT,NUMEQS,IPLTPE,IORB,ITAPE
C
      COMMON/IODPLY/ ISDPLY,IRAXIS,ISAXIS,NCROSS,NPRINT
C
      COMMON/RSUNCL/ WE,TVER,ECLPTC
C
      COMMON/VECTRS/ XSAT(3),XSATDT(3),AD(3)
C
      COMMON/ XIN4 / UP(150),DN(150),CONSA,COMEG,AOOP,AOOPV,AOOP1,AOOPV1
     .              ,AIP,AIPV,AIP1,AIPV1,DOOP,DOOPV,DOOP1,DOOPV1,DIP,
     .               DIPV,DIP1,DIPV1,DUC,DUC1,DUCD,DUCD1
C
      COMMON/ZSPINR/ DTZMA,PZDT,CMZO,ISPIN3,JSPIN
C
C
C                       CALL SETUP FOR LABELED COMMON CCMBNZ
C
       CALL SETUP(8HZ01     ,8,Z01,4)
       CALL SETUP(8HZ02     ,8,Z02,4)
       CALL SETUP(8HZ03     ,8,Z03,4)
       CALL SETUP(8HZ04     ,8,Z04,4)
       CALL SETUP(8HZ11     ,8,Z11,12)
       CALL SETUP(8HZ12     ,8,Z12,12)
       CALL SETUP(8HZ13     ,8,Z13,12)
       CALL SETUP(8HZ14     ,8,Z14,12)
       CALL SETUP(8HZ15     ,8,Z15,12)
       CALL SETUP(8HZ16     ,8,Z16,12)
       CALL SETUP(8HZ21     ,8,Z21,36)
       CALL SETUP(8HZ22     ,8,Z22,36)
       CALL SETUP(8HZ23     ,8,Z23,36)
       CALL SETUP(8HZ24     ,8,Z24,36)
       CALL SETUP(8HZ25     ,8,Z25,36)
       CALL SETUP(8HZ26     ,8,Z26,36)
       CALL SETUP(8HZ27     ,8,Z27,36)
       CALL SETUP(8HZ28     ,8,Z28,36)
       CALL SETUP(8HZ31     ,8,Z31,108)
       CALL SETUP(8HZ32     ,8,Z32,108)
       CALL SETUP(8HZ33     ,8,Z33,108)
       CALL SETUP(8HZ34     ,8,Z34,108)
       CALL SETUP(8HZ35     ,8,Z35,108)
       CALL SETUP(8HZ41     ,8,Z41,324)
       CALL SETUP(8HZ42     ,8,Z42,324)
       CALL SETUP(8HZ43     ,8,Z43,324)
       CALL SETUP(8HZK21    ,8,ZK21,18)
       CALL SETUP(8HZK22    ,8,ZK22,18)
       CALL SETUP(8HZK23    ,8,ZK23,18)
       CALL SETUP(8HZK31    ,8,ZK31,54)
       CALL SETUP(8HZK32    ,8,ZK32,54)
       CALL SETUP(8HZK33    ,8,ZK33,54)
       CALL SETUP(8HZK34    ,8,ZK34,54)
       CALL SETUP(8HZK35    ,8,ZK35,54)
       CALL SETUP(8HZK36    ,8,ZK36,54)
       CALL SETUP(8HZK41    ,8,ZK41,162)
       CALL SETUP(8HZK42    ,8,ZK42,162)
       CALL SETUP(8HZK43    ,8,ZK43,162)
       CALL SETUP(8HZK44    ,8,ZK44,162)
       CALL SETUP(8HZK45    ,8,ZK45,162)
       CALL SETUP(8HZK46    ,8,ZK46,162)
       CALL SETUP(8HZK47    ,8,ZK47,162)
       CALL SETUP(8HZK48    ,8,ZK48,162)
       CALL SETUP(8HZS01    ,8,ZS01,2)
       CALL SETUP(8HZS02    ,8,ZS02,2)
       CALL SETUP(8HZS11    ,8,ZS11,6)
       CALL SETUP(8HZS12    ,8,ZS12,6)
       CALL SETUP(8HZS13    ,8,ZS13,6)
       CALL SETUP(8HZS21    ,8,ZS21,18)
       CALL SETUP(8HZS22    ,8,ZS22,18)
       CALL SETUP(8HZS23    ,8,ZS23,18)
       CALL SETUP(8HZS24    ,8,ZS24,18)
       CALL SETUP(8HZS31    ,8,ZS31,54)
       CALL SETUP(8HZS32    ,8,ZS32,54)
       CALL SETUP(8HZS41    ,8,ZS41,162)
       CALL SETUP(8HZT21    ,8,ZT21,108)
       CALL SETUP(8HZT22    ,8,ZT22,108)
       CALL SETUP(8HSTAO    ,8,STAO,18)
       CALL SETUP(8HSTA1    ,8,STA1,18)
       CALL SETUP(8HSTA2    ,8,STA2,18)
       CALL SETUP(8HSTBO    ,8,STBO,18)
       CALL SETUP(8HSTB1    ,8,STB1,18)
       CALL SETUP(8HSTB2    ,8,STB2,18)
       CALL SETUP(8HZ2S01   ,8,Z2S01,2)
       CALL SETUP(8HZ2S12   ,8,Z2S12,6)
       CALL SETUP(8HZ2S23   ,8,Z2S23,18)
C
C                       CALL SETUP FOR LABELED COMMON CNBODY
      CALL SETUP('J2      ',8,J2)
      CALL SETUP('J3      ',8,J3)
      CALL SETUP('J4      ',8,J4)
      CALL SETUP('J22     ',8,J22)
      CALL SETUP('ZJ20    ',8,ZJ20)
      CALL SETUP('ZMU     ',8,ZMU)
      CALL SETUP('WWO     ',8,WWO)
      CALL SETUP('FLAT    ',8,FLAT)
      CALL SETUP('AEARTH  ',8,AEARTH)
C
C                       CALL SETUP FOR LABELED COMMON CFINDX
C
      CALL SETUP('AX2CHK  ',8,AX2CHK)
      CALL SETUP('TCHECK  ',8,TCHECK)
      CALL SETUP('LCHECK  ',4,LCHECK)
C
C                       CALL SETUP FOR LABELED COMMON CODPLY
C
      CALL SETUP(8HSTANG   ,8,STANG)
      CALL SETUP(8HANGTOL  ,8,ANGTOL)
C
C                       CALL SETUP FOR LABELED COMMON DATOUT
C
      CALL SETUP ('IDATA   ',4,IDATA)
      CALL SETUP ('MLAST   ',4,MLAST)
C
C                       CALL SETUP FOR LABELED COMMON DEBUG1
C
      CALL SETUP(8HIAFM    ,4,IAFM,5)
C
C
C                       CALL SETUP FOR LABELED COMMON DEBUG2
C
      CALL SETUP('IOUT    ',4,IOUT)
      CALL SETUP('KLUGE   ',4,KLUGE)
C
C                       CALL SETUP FOR LABELED COMMON DEBUG3
C
      CALL SETUP(8HISWTCH  ,4,ISWTCH)
C
C                       CALL SETUP FOR LABELED COMMON DEPLOY
C
      CALL SETUP(8HDDPLY   ,4,DDPLY)
      CALL SETUP(8HMDPLY   ,4,MDPLY)
C
C                       CALL SETUP FOR LABELED COMMON HAMOUT
C
      CALL SETUP(8HIHAMLT  ,4,IHAMLT)
C
C                       CALL SETUP FOR LABELED COMMON IMAIN1
C
      CALL SETUP('IORB    ',4,IORB)
      CALL SETUP('ITAPE    ',4,ITAPE)
C
C                       CALL SETUP FOR LABELED COMMON IODPLY
C
      CALL SETUP(8HISDPLY  ,4,ISDPLY)
      CALL SETUP(8HIRAXIS  ,4,IRAXIS)
      CALL SETUP(8HISAXIS  ,4,ISAXIS)
      CALL SETUP(8HNCROSS  ,4,NCROSS)
      CALL SETUP(8HNPRINT  ,4,NPRINT)
C
C                       CALL SETUP FOR LABELED COMMON RSUNCL
C
      CALL SETUP('WE      ',8,WE)
      CALL SETUP('TVER    ',8,TVER)
      CALL SETUP('ECLPTC  ',8,ECLPTC)
C
C                       CALL SETUP FOR LABELED COMMON VECTRS
C
      CALL SETUP('XSAT    ',8,XSAT,3)
      CALL SETUP('XSATDT  ',8,XSATDT,3)
C
C                       CALL SETUP FOR LABELED COMMON XIN4
      CALL SETUP(8HUP      ,8,UP,150)
      CALL SETUP(8HDN      ,8,DN,150)
      CALL SETUP(8HCONSA   ,8,CONSA)
      CALL SETUP(8HCOMEG   ,8,COMEG)
      CALL SETUP(8HAOOP    ,8,AOOP)
      CALL SETUP(8HAOOPV   ,8,AOOPV)
      CALL SETUP(8HAOOP1   ,8,AOOP1)
      CALL SETUP(8HAOOPV1  ,8,AOOPV1)
      CALL SETUP(8HAIP     ,8,AIP)
      CALL SETUP(8HAIPV    ,8,AIPV)
      CALL SETUP(8HAIP1    ,8,AIP1)
      CALL SETUP(8HAIPV1   ,8,AIPV1)
      CALL SETUP(8HDOOP    ,8,DOOP)
      CALL SETUP(8HDOOPV   ,8,DOOPV)
      CALL SETUP(8HDOOP1   ,8,DOOP1)
      CALL SETUP(8HDOOPV1  ,8,DOOPV1)
      CALL SETUP(8HDIP     ,8,DIP)
      CALL SETUP(8HDIPV    ,8,DIPV)
      CALL SETUP(8HDIP1    ,8,DIP1)
      CALL SETUP(8HDIPV1   ,8,DIPV1)
      CALL SETUP(8HDUC     ,8,DUC)
      CALL SETUP(8HDUC1    ,8,DUC1)
      CALL SETUP(8HDUCD    ,8,DUCD)
      CALL SETUP(8HDUCD1   ,8,DUCD1)
C
C                       CALL SETUP FOR LABELED COMMON ZSPINR
C
      CALL SETUP(8HDTZMA   ,8,DTZMA)
      CALL SETUP(8HPZDT    ,8,PZDT)
      CALL SETUP(8HCMZO    ,8,CMZO)
      CALL SETUP(8HISPIN3  ,4,ISPIN3)
C
      RETURN
      END
